﻿Public Class NhanVienQL
    Inherits NhanVien

    Private _HeSoCV As Double
    Public Property HesoCV() As String
        Get
            Return _HeSoCV
        End Get
        Set(ByVal value As String)
            _HeSoCV = value
        End Set
    End Property

    Private _Thuong As Double
    Public Property Thuong() As Double
        Get
            Return _Thuong
        End Get
        Set(ByVal value As Double)
            _Thuong = value
        End Set
    End Property
    Public Overrides Sub Nhap()
        MyBase.Nhap()
        Console.Write("He So cong viec: ")
        _HeSoCV = Convert.ToDouble(Console.ReadLine)
        Console.Write("Thuong: ")
        _Thuong = Convert.ToDouble(Console.ReadLine)
    End Sub
    Public Overrides Sub Xuat()
        MyBase.Xuat()
        Console.Write(", He so cv: {0}", _HeSoCV)
        Console.Write(", Thuong: {0}", _Thuong)
        Console.WriteLine(", Nhan Vien QL")
    End Sub
    Public Overrides Function TinhLuong() As Double
        Return MyBase.TinhLuong() + _HeSoCV + _Thuong
    End Function

End Class
